home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / MySocks.p < prev    next >
Encoding:
Text File  |  1996-05-31  |  540 b   |  42 lines  |  [TEXT/CWIE]
  1. unit MySocks;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types;
  7.  
  8.     const
  9.         socks_default_port = 1080;
  10.         socks_version = 4;
  11.  
  12.     const { Response commands/codes }
  13.         socks_connect = 1;
  14.         socks_bind = 2;
  15.         socks_result = 90;
  16.         socks_fail = 91;
  17.  
  18. {$PUSH}
  19. {$ALIGN MAC68K}
  20.  
  21.     type
  22.         SocksRecordSmall = packed record
  23.                 version: Byte;
  24.                 cmd: Byte;
  25.                 port: integer;
  26.                 ip: longint;
  27.             end;
  28.         SocksRecord = packed record
  29.                 version: Byte;
  30.                 cmd: Byte;
  31.                 port: integer;
  32.                 ip: longint;
  33.                 name: Str63; {cstring!}
  34.             end;
  35.  
  36. {$ALIGN RESET}
  37. {$POP}
  38.  
  39. implementation
  40.  
  41. end.
  42.